home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / FASTREAD.M < prev    next >
Encoding:
Text File  |  1989-08-04  |  447 b   |  25 lines
  1.  
  2. MODULE FastRead; (*$E MOS *)
  3.  
  4. IMPORT TOSIO, InOut;
  5.  
  6. VAR str1  : ARRAY [0..10] OF CHAR;
  7.     ch    : CHAR;
  8.     count : INTEGER;
  9.  
  10. BEGIN
  11.   InOut.RedirectInput ("D:\TMP\T.DAT");
  12.   LOOP
  13.     InOut.ReadString (str1);
  14.     IF NOT InOut.Done THEN
  15.       EXIT
  16.     END;
  17.     InOut.WriteString (str1);
  18.     IF InOut.termCH = InOut.EOL THEN
  19.       InOut.WriteLn
  20.     END
  21.   END (* LOOP *);
  22.   InOut.CloseInput;
  23.   InOut.Read (ch);
  24. END FastRead.
  25.